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MODULE GETFIB (¢ ™ UAGE, c 32), 
ESTA. BLS 


BEGIN 


NOUS Ww 


' 
RRR RRR AAAARAAAAAARARAAAAARAAEAAREA AERA EREE REAR AAARAAAAARARAAEAAERAEREAE EEE 


i=) 


and internal exec routines. 
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4 
é 
8 8 
9 '® 7 
10 10 'e Sth (c) 1978, 1980, 1982, 1984 BY * 
11 11 ie DIGITAL QUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
\¢ \¢ - ALL RIGHES” RESERV : 
14 14 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
15 015 '® oa IN oe CE WITH OF SUCH LICENSE AND WITH THE * 
16 B18 '® INCLUSION O aye move COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
17 1 '® COPIES PHEREOF MA Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
18 018 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 4 i TRANSFERRED. : 
1 021 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 3 * 
¢ 0 ; 'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
? 88 7 is CORPORATION. : 
5 0025 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 80 $ ' SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
$B 0028 1 is ' . 
, 80 4 PITTTITILILLLI LILI LI LLL LiL LiL LiL tli li Tiiiiiiiiiiiiiiiiiiiil 
1 0031 !e+ 
; it T4 ! 
? O07 ; FACILITY: FI11ACP Structure Level 1 
2 Bae i ABSTRACT: 
i 0037 | | This routine obtains the address of the FIB for this operation. 
4 4 i ENVIRONMENT: 
$} 0041 STARLET operating system, including privileged system services 
¢8 : 
44 4 
o2 5 
49 ; 
4 
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} 1 AUTHOR: Andrew C. Goldstein, CREATION DATE: 7-Jan-1977 01:02 
, ‘3 i MODIFIED BY: 
1 051 v03-001 LMP0219 ark Pilan 24-Mar-1984 23:15 
§ 26 Preset FIBSL act STATUS to oss. NORMAL. 
4 054 A0100 ACG0001 Andrew C. Goldstein, 10-Oct-1978 20:01 
é 0086 Previous revision history moved to F11A.REV 
5 et 
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$7 GLOBAL ROUTINE GET_FIB (ABD) = 
65 '++ 
‘ 
6 ! FUNCTIONAL DESCRIPTION: 
e This routine obtains the address of the FIB for this operation. 
0 It copies the FIB from the buffer packet into local storage 
f : and zero extends it to maximum Length. 
7 CALLING SEQUENCE: 
ue GET_FIB (ARG1) 
7 ! INPUT PARAMETERS: 
as ARG1: buffer descriptor List 
79 ! IMPLICIT INPUTS: 
80 CURRENT WINDOW: address of user's window or 0 


IO_PACKET: address of user's 1/0 packet 
!' OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
address of FIB 


SIDE EFFECTS: 

file ID may be written into FIB 

channel window pointer write-back inhibited 
result string buffers zeroed 
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0 
0 
0 
0 
0 
1 
1 
1 
1 1 
1 1 MAP 
1 1 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH); 
: : ' buffer descriptors 
1 1 LOCAL 
1 1 FCB : REF BBLOCK, ! FCB of file 
: FIBL; ! Length of user FIB 
1 EXTERNAL 
1 LOCAL_FIB : BBLOCK, ! internal copy of user FIB 
1 10_PACKET : REF BBLOCK, ! 1/0 packet of this operation 
1 PRIMARY_FCB REF BBLOCK, ! FCB of current file 
1 CURRENT _F 1B : REF BBLOCK, ! pointer to current FIB in use 
: CURRENT _WINDOW : REF BBLOCK; ! user's window 
1 
1 ! Get the length of the user~supplied FIB. If there is a window, 
1 ' and there is no user FIB, use the file ID from 
1 ' the window's FCB. Also use the FCB's file ID if the file number 
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1 in the user FIB is zero. 


F{BSC_LENGTH, 
LOCAL-F IB); 
CURRENT_FIB ="LOCAL_F 1B; 
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LOCAL_FIBCFIBSL_ACL_STATUS] = SS$_NORMAL; ! Preset to success 


IF .CURRENT_WINDOW NEQ 0 
THEN 


BEGIN 
FCB = ,CURRE 
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0 NT_WINDOWCWCBSL_FCBI; 
1 IF .LOCAL_FIBCFIBSW_FID_NUM] 
¢ THEN CHSMOVE (FIBSS_FID, FCBCFCBSW_FID), LOCAL_FIBCFIBSW_FIDI); 
4 ! If the file ID in the FIB does not match that in the FCB, this operation 
55 ! is not on the open file; clear the FCB and window addresses (except in 
28 !' the case of a DEACCESS. in which we force the file ID to that of the open 
3 } file and signal 2n error). 
59 
0460 IF LOM oF OEE Bout 1b aun) NEQ .FCBCFCBSW_FID_NUM] 
0461 OR .LOCAL_FIBLFIBSW_FID_RVN] NEQ .FCBLFCBSW_FID_RVN) 
p7o¢ THEN 
046 BEGIN 
0464 IF .1O_PACKETCIRPS$V_FCODE] EQL I0$_DEACCESS 
465 THEN 
08 BEGIN 
46 CHSMOVE (FIBSS_FID, FCBCFCBSW_FIDJ, LOCAL_FIBCFIBSW_FIDJ); 
0468 ERR_STATUS (SS$_BADPARAM) ; 
55 a 
471 BEGI 
7 CURRENT_WINDOW = 0; 
7 PRIMARY_FCB = 0; 
474 END; 
475 END; 
1 END 
g ! If there is no file open, there must be a minimum FIB. 
0 
481 ELSE 


f the directory ID is -1,-1, convert it to 4,4,0 to be compatible with 
he old RSX MFD kluge. 
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FIBL = .ABDCABDSC_FIB, ABDSW_COUNT); 
CHSCOPY CF IBL 
ABDCABDSC_F1IB, ABDSW_TEXT] + ABDCABDSC_FIB, ABDSW_TEXT] + 1, 
4 
4 
; 
4 
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RETURN LOCAL_F 18; 


END; ! end of routine 
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X-11 Bliss-32 V4.0-742 fe 5 
DISKSVMSMASTER:CF1IA.SRCIGETFIB.832:1 9 02) 
GET_FIB 
GETFIB 
\V04=000\ 
LOCAL FIB. 10_PACKET 
PRIMARY TURRENT_FIB 
CURRENT~ “UiNbou- USER-STATUS 
SCODES,NOWRT,2 
GET_FIB, Save R2,R3,R4,R5,R6,R7,R8 : 0376 
USER_STATUS, R8 ; 
LOCAC_FIB+4. R7 F 
ABD, RO 3 0436 
10(RO), FIBL : 
BRO) + 0439 
FIBL, 1(R1)CROJ, #0, #64, LOCAL_FIB + 0438 
LOCAL_FIB, - GURRENT. FIB + 0443 
#1, LOCAL + 0445 
yrds brnDow RO : 0447 
24(R0O), FCB + 0450 
LOCAL CAL_F1B+4 + 0451 
#6, 36(FCB), LOCAL FIB+4 > 0452 
Lot AL_FIB+4, 36(FCB) ; 0460 
LOCAL. FIB+8, 40(FCB) : 0461 
i _PACKET, R + 0464 
Ab S8(ROD, #52 : 

#6 36(F(B), QCAL _FIB+4 > 0467 
U USER. STA : 0468 
“USER” US tatus : 

> 0464 
CURRENT _WINDOW > 047 
PRIMARY—FCB ; 47 
aU #10 > 04 
5 3 
panties 


Sep-1 VAX-11 Bliss<«32 V4.0-74 
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0114 BF BF 7 cHMU #276 1 0484 

FFFF SF 06 if 3 5$: chew CAL_F1B+10, #65535 ; 0491 
FFFF 6 oF 08 a7 9 cAPy es _F1B+12, #65535 + 0492 
06 A? 00040004 $F D 1 MOVL #262148, LOCAL_F18+10 + 0495 

A A? B4 00099 CLRW LOCAL_Fie+14 + 0497 

50 FC OA? be H' 6$: MOVAB LOCA L “iB. RO ; 300 

A RET : 050 


; Routine Size: 161 bytes, Routine Base: S$CODES + 0000 


; 190 0304 1 
; #191 1 END 
: 192 0505 0 ELUDOM 


: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 161 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Rte 8 et a ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: .$255$0UA28: CSYSLIBILIB.132;1 18619 24 0 1000 00:01.9 
3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:GETFIB/OBJ=OBJ$:GETFIB MSRC$:GETFIB/UPDATE=(ENHS$:GETF IB) 
H Ztze: 161 $ + 0 data bytes 

3; Run Time 07.4 

3 pk Time: :27.9 

: Lines/CPU Min: 1 

; ponenee sc Pyare) 151 

3; Memor 1 ut 97 pages 

3; Compi ation. Complete 


v4 


Sete ee eeecere 
Ozer mpDa 


AL EQUIPMENT CORPORATION 


AH-BT13A-SE 
DENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


0165 


